home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / parallax / mac_sit.hqx / Parallaxis 2.11 / pi.z < prev    next >
Text File  |  1992-01-09  |  948b  |  37 lines
  1. START
  2. 100 PE
  3. 0 PORTS
  4. SCALAR     R1
  5. VECTOR     I1 R1 R1
  6.     1  :    GOTO 13;
  7.     2  :    PROC 1;
  8.         ERROR "division by 0";
  9.         RETURN;
  10.     3  :    PROC 1;    configuration : LIST
  11.         VI0:1 := ID - 1; for LIST calculating DIMi
  12.         VI0:1 := VI0:1 + 1;      DIM1
  13.         RETURN;    configuration : LIST
  14.     4  :    PROC 1 
  15.         VECTOR     R2 R1    ;     F
  16.     5!10  :    POPV VR1:1;
  17.     6!13  :    VR1:3 := VR1:1 * VR1:1; line 13 column 2 
  18.     7  :    VR1:3 := 1.00000 + VR1:3;
  19.     8  :    IF VR1:3 = 0.0 CALL 2;
  20.     9  :    VR1:2 := 4.00000 / VR1:3;
  21.    10  :    GOTO 11; RETURN
  22.    11!14  :    PUSHV VR1:2;
  23.    12  :    RETURN;     F
  24.    13!17  :    CALL 3; line 17 column 2 
  25.    14!19  :    VR0:2 := ID; line 19 column 4 
  26.    15  :    VR0:2 := VR0:2 - 0.500000;
  27.    16  :    VR0:2 := VR0:2 * 0.0100000;
  28.    17  :    PUSHV VR0:2;
  29.    18  :    CALL 4; F
  30.    19  :    POPV VR0:2;
  31.    20  :    VR0:1 := 0.0100000 * VR0:2;
  32.    21!21  :    CALL 3; line 21 column 2 
  33.    22  :    SR0:1 := REDUCE SUM OF VR0:1; SUM
  34.    23  :    WRITE SR0:1 15;
  35.    24  :    END;    COMPUTE_PI
  36. STOP
  37.